0 CLS6

1 A=5

2 B=14

3 HT=0

4 TI=0

5 SH=0

6 N=15

7 POKE17026,6

100 PRINT@32*A+B,"";

101 TI=TI+1

102 U=A

103 V=B

104 A=A+2-RND(3)

105 B=B+2-RND(3)

106 K=PEEK(2)ANDPEEK(17023)

107 GOSUB700

108 IFK=32ORN<15THENGOSUB300

200 A=A-(K=90)+(K=87)

201 B=B-(K=83)+(K=65)

202 GOSUB700

203 PRINT@238,"";

204 PRINT@302,"";

205 GOTO100

300 PRINT@32*N+23-N,"";

301 PRINT@32*N+N+7,"";

302 PRINT@32*N+23-N,"";

303 PRINT@32*N+N+7,"";

400 SH=SH+1

401 N=N-1

402 Q=PEEK(9)AND128

403 POKE49151,0+Q

404 POKE49151,128-Q

405 IFN>7THENRETURN

500 IF(U=7ORU=8ORU=9)AND(V=13ORV=14ORV=15ORV=16)THENPRINT@32*U+V,"";:SOUND100,1:HT=HT+1:IFHT=5THEN800

600 GOSUB700

601 N=15

602 GOTO100

700 A=A-(A<0)

701 A=A+(A>15)

702 B=B-(B<0)

703 B=B+(B>28)

704 PRINT@32*U+V,"";

705 RETURN

800 PRINT@0,"YOU GOT HIM!  "

801 SOUND219,9

802 SOUND241,7

803 SOUND200,9

804 SC=INT(10000/(TI+SH))

805 IFSC>HSTHENHS=SC

900 PRINT@16,"SCORE"SC

901 PRINT"HIGH SCORE"HS

902 PRINT@48,;

903 INPUT"HIT enter";M$

904 GOTO0

1000 REM USE A,S,W,Z TO STEER

2000 REM     SPACE TO FIRE

3000 REM 5 HITS TO SHOOT DOWN